home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 138 / Tiger_Disk_138_20xx_Tiger-Crew-Disk_de_Side_B.d64 / miami ice (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  88 lines
  1. 1 poke53280,0:poke53281,0:print"[147]"
  2. 2 read r:if r=0 then restore:goto 2
  3. 3 for x=1 to r:read a$(x):next
  4. 4 yp=rnd(1)*(25-r-3)
  5. 5 l=len(a$(1)):for x=1 to r:if len(a$(x))>l then l=len(a$(x))
  6. 6 next
  7. 7 if (l and 1)=1 then l=l+1
  8. 8 xp=rnd(1)*(40-l-3):c=int(rnd(1)*5):c3=1
  9. 9 if c=0 then c1=10:c2=2
  10. 10 if c=1 then c1=13:c2=5
  11. 11 if c=2 then c1=14:c2=6
  12. 12 if c=3 then c1=15:c2=12
  13. 13 if c=4 then c1=8:c2=9
  14. 14 for x=1 to r
  15. 15 if len(a$(x))<l then a$(x)=a$(x)+" ":goto 15
  16. 16 next x
  17. 17 a$(0)="":for y=1 to l:a$(0)=a$(0)+"[183][183]":y=y+1:next
  18. 18 a$(r+1)="":for y=1 to l:a$(r+1)=a$(r+1)+"[175][175]":y=y+1:next
  19. 19 a$(r+2)="":for y=1 to l:a$(r+2)=a$(r+2)+"  ":y=y+1:next
  20. 20 for c=0 to l/2:p=xp+l/2-c
  21. 21 poke 211,0:poke 214,yp:sys 58732
  22. 22 poke 646,c1:print tab(p) "[207]"left$(a$(0),c);right$(a$(0),c)"[208]";
  23. 23 poke 646,c2:print"[223]"
  24. 24 for v=1 to r
  25. 25 poke 646,c1:print tab(p) "[165]";
  26. 26 poke 646,c3:print left$(a$(v),c);right$(a$(v),c);
  27. 27 poke 646,c1:print "[167]";
  28. 28 poke 646,c2:print " "
  29. 29 next v
  30. 30 poke 646,c1:print tab(p)"[204]"left$(a$(r+1),c);right$(a$(r+1),c)"[186]";
  31. 31 poke 646,c2:print " "
  32. 32 print tab(p) "[223]"left$(a$(r+2),c);right$(a$(r+2),c)" [205][146]";
  33. 33 next c:for c=1 to r:ti$="000000":wait 162,32:next:goto 2
  34. 34 data 1,"lynx ix..."
  35. 35 data 1,"(it took nine versions?)
  36. 36 [131] 1,"(oh me gawd!)
  37. 37 data 2,"#1 telecommunications disk
  38. 38 [131] "utility on the planet
  39. 39 data 1,"(asteroid?)
  40. 40 [131] 2,"600 to 1200%
  41. 41 data "faster than library
  42. 42 [131] 2,"(down hill...
  43. 43 data   "...of course!)
  44. 44 [131] 2,"the fastest file compiler
  45. 45 data "available for c64/c128
  46. 46 [131] 1,"(print#15,'n:junk')
  47. 47 data 2,"non-duplicating
  48. 48 [131] "format
  49. 49 data 1,"(not xeroxed?)
  50. 50 [131] 1,"two drive file copier
  51. 51 data 1,"(couldn't do it with one...eh?)
  52. 52 [131] 2,"super simple
  53. 53 data "directory editor
  54. 54 [131] 1,"(dahhhh..watts dat?)
  55. 55 data 2,"relative files
  56. 56 [131] "up to 664 blocks
  57. 57 data  1,"(e=mc^2)
  58. 58 [131] 2,"super fast
  59. 59 data "file encryption
  60. 60 [131] 1,"(nixon would love this)
  61. 61 data 1,"dos commander
  62. 62 [131] 1,"(captain jerk)
  63. 63 data 1,"file reader
  64. 64 [131] 2,"unique yuppie
  65. 65 data "graphics!!!
  66. 66 [131] 1,"(yup!...yup!)
  67. 67 data 2,"the 'miami vice' of
  68. 68 [131] "commodore freeware
  69. 69 data 1,"(heeeyyy rico)
  70. 70 [131] 2,"by...
  71. 71 data "will corley
  72. 72 [131] 1,"(yup!...yup!)
  73. 73 data 1,"not bad for $1...eh?
  74. 74 [131] 1,"(bet ya made only $79)
  75. 75 data 2,"would ya believe
  76. 76 [131] "i am a rookie !
  77. 77 data 1,"(commie propaganda)
  78. 78 [131] 2,"lynx was the fourth
  79. 79 data "program i ever wrote !!
  80. 80 [131] 1,"(lets hope it's your last)
  81. 81 data 2,"i don't even belong
  82. 82 [131] "to a user group !!!
  83. 83 data 1,"(shame!...shame!)
  84. 84 [131] 2,"lynx ix...
  85. 85 data "born in the usa
  86. 86 [131] 1,"(not in toronto by tpug?)
  87. 87 data 0
  88.